home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Softwarová Záchrana 3
/
Softwarova-zachrana-3.bin
/
Xteq X-Setup
/
xqdcXSP-Setup-EN.exe
/
{app}
/
plugins
/
XQ Mount Compressed Drive.xpl
< prev
next >
Wrap
Text File
|
2001-05-04
|
2KB
|
59 lines
"FILE"="Xteq Systems X-Setup Plugin 6.0"
"TYPE"="7"
"COUNT"="3"
"UIPATH"="System\File System\Windows 9x/ME Options\Compression"
"NAME"="Auto Mount Compressed Drives"
"VERSION"="1.06"
"OSVERSION"="10101"
"LANGUAGE"="VBScript"
"TEXT 1"="Do not use compressed drives"
"TEXT 2"="Mount manually"
"TEXT 3"="Mount automatically"
"DESCRIPTION 1"="Automatically mount compressed drive not present when system started, e.g. compressed floppy or zip disk."
"COMMENT 1"=" "
"COMMENT 2"="Run Win98/98SE on 250MB HD --> use Drvspace.exe"
"AUTHOR"="Ojatex@aol.com"
"CONTACTURL"="http://members.aol.com/ojatex/"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
'Declaration of some constants
sP="HKLM\System\CurrentControlSet\Control\FileSystem\AutoMountDrives"
'Called when the Plugin is started
SUB Plugin_Initialize
i=RegReadValue(sP)
if IsEmpty(i) then
SetUIElement 1,true
else
if i="" then SetUIElement 1,true
if i="0" then SetUIElement 2,true
if i="1" then SetUIElement 3,true
end if
END SUB
'Called when the Plugin should validate the Data the user has entered
SUB Plugin_CheckData(ElementIndex)
END SUB
'Called when the Plugin should apply the changes
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
if GetUIElement(1)=true then
s=""
else
if GetUIElement(2)=true then
s="0"
else
s="1"
end if
end if
Call RegWriteValue(sP,s,1)
END SUB
'Called when the Plugin is about to be removed from memory
SUB Plugin_Terminate
END SUB